home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 40 / Commodore_Disc_40_19xx_-_de.d64 / workbase 64 v2.0 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  18KB  |  516 lines
  1. 5 goto3100
  2. 10 g=2:rf=9:hf=9:bs=1
  3. 15 gosub2895:gosub2935:fori=0to191:readq:poke832+i,q:next:sys986
  4. 20 print""left$(ti$,2)":"mid$(ti$,3,2)":"right$(ti$,2)
  5. 23 ifleft$(ti$,4)=al$andv=0thengosub3080
  6. 24 ifbs<>1then33
  7. 26 poke768,61:open1,8,15:close1:poke768,139:ifst=-128thenf8$="[193][213][211]":goto28
  8. 27 f8$="[193][206] "
  9. 28 poke768,61:open1,9,15:close1:poke768,139:ifst=-128thenf9$="[193][213][211]":goto31
  10. 29 f9$="[193][206] "
  11. 31 poke214,11:print:poke211,21:print"[198]loppy 8 ist "f8$
  12. 32 poke214,13:print:poke211,21:print"[198]loppy 9 ist "f9$
  13. 33 x=peek(53248)+(peek(53264)and1=1)*256-24:y=peek(53249)-50:t=peek(56320)and16
  14. 35 ifbs=8andpeek(203)=9thendi=0:gosub2895:return
  15. 40 ifg<1theng=1
  16. 45 ifg>10theng=10
  17. 50 poke895,g:ift=0then65
  18. 55 ifbs=7thenpoke214,5:print:poke211,36:print""g:ifg<10thenpoke1302,160
  19. 60 goto20
  20. 65 onbsgoto70,195,275,335,600,980,685,1180,930,1760,2285
  21. 70 ifx=>0andy>16andx<63andy<57then840
  22. 75 ifx>104andy>16andx<127andy<57then885
  23. 80 ifx>168andy>16andx<204andy<57then2215
  24. 90 ifx=>0andy>97andx<63andy<137then630
  25. 95 ifx>104andy>97andx<129andy<138then150
  26. 97 ifx>239andy>15andx<289andy<58then2500
  27. 100 goto20
  28. 105 data0,0,0,0,0,28,0,96,20,0,224,2,0,192,1,1,255,193,7,255,225,13,255,243,31,255
  29. 110 data254,63,255,248,126,255,112,1,0,128,1,0,128,3,1,128,0,0,0,0,0,0,0,0,0,0,0,0
  30. 115 data0,0,0,0,0,0,0
  31. 120 data0,0,1,173,0,220,170,41,1,208,10,56,173,1,208,237,127,3,141,1,208,138,41,2
  32. 125 data208,10,24,173,1,208,109,127,3,141,1,208,138,41,4,208,12,56,173,0,208,237
  33. 130 data127,3,141,0,208,144,20,138,41,8,208,32,24,173,0,208,109,127,3,141,0,208,176
  34. 135 data3,76,215,3,173,16,208,41,1,240,5,73,1,76,212,3,9,1,141,16,208,76,49,234,169
  35. 140 data1,141,21,208,169,13,141,248,7,169,15,141,39,208,169,160,141,0,208,169,160
  36. 145 data141,1,208,120,169,128,141,20,3,169,3,141,21,3,88,96
  37. 150 gosub2895:print:print:print" [211]ind [211]ie sicher ???  (j/n)"
  38. 155 getjn$:ifjn$="j"thensys64738
  39. 160 ifjn$<>"n"then155
  40. 165 run5
  41. 630 gosub2895:forx=0to6:print"                                 ":nextx
  42. 635 print"[145][145][145][145][145][200]intergrund[210]ahmen+[205]aus-"
  43. 640 print"":forx=0to6:print"             ":nextx
  44. 645 poke214,5:print:poke211,28:print"[199]eschw.:"g
  45. 650 print"[218]urueck ins":print"[200]auptmenue"
  46. 655 forx=1157to1357step40:pokex,160:pokex+54272,0:nextx
  47. 660 forx=1168to1368step40:pokex,160:pokex+54272,0:nextx
  48. 665 forx=1183to1383step40:pokex,160:pokex+54272,0:nextx
  49. 670 forx=1557to1757step40:pokex,160:pokex+54272,0:nextx
  50. 675 poke214,8:print:poke211,1:print"[144]                                 "
  51. 680 poke214,18:print:poke211,1:print"[144]             ":bs=7:goto20
  52. 685 ifx=>0andy>96andx<80andy<138thengosub2895:gosub2935:goto20
  53. 690 ifx=>0andy>16andx<80andy<57then715
  54. 695 ifx>128andy>16andx<168andy<57then725
  55. 700 ifx>215andy>16andx<224andy<57theng=g+1:goto20
  56. 705 ifx>279andy>16andx<289andy<57theng=g-1:goto20
  57. 710 goto20
  58. 715 hf=hf+1:poke53281,hf:ifhf=16thenhf=0
  59. 720 goto20
  60. 725 rf=rf+1:poke53280,rf:ifrf=16thenrf=0
  61. 730 goto20
  62. 735 gosub2895:input"[196]isk in welcher [198]loppy initializieren? 8[157][157][157]";in
  63. 740 open1,in,15:close1:ifst=-128then775
  64. 745 open15,in,15,"i":close15
  65. 750 print"[206]ocheinmal ([202]/[206])?"
  66. 755 getjn$:ifjn$=""then755
  67. 760 ifjn$="n"thengosub2895:gosub2935:goto20
  68. 765 ifjn$="j"then735
  69. 770 print"[145]":goto750
  70. 775 print"[198]loppy"in"ist ausser [194]etrieb!":goto750
  71. 780 gosub2895:input"[196]iskstatus welcher [198]loppy? 8[157][157][157]";k
  72. 785 open1,k,15:close1:ifst<>-128then800
  73. 790 print"[198]loppy"k"ist ausser [194]etrieb."
  74. 795 goto810
  75. 800 open15,k,15:en=0:input#15,en,em$,et,es:ifen>0then805
  76. 805 print"[211]tatus [198]loppy"k":"en;em$;et;es:close1
  77. 810 print"[206]ocheinmal([202]/[206])"
  78. 815 getjn$:ifjn$=""then815
  79. 820 ifjn$="n"thensys65511:gosub2895:gosub2935:goto20
  80. 825 ifjn$="j"thensys65511:goto780
  81. 830 print"[145][145]":goto810
  82. 835 ifa$="n"thengosub3055:goto545
  83. 840 di=0:open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1
  84. 845 gosub2895:open1,8,0,"$":poke781,1:sys65478:geta$,a$
  85. 850 di=di+1:ifdi=20thengosub875
  86. 855 geta$,a$:ifst=64thensys65484:close1:goto876
  87. 860 geta$,b$:print"[157]"asc(a$+chr$(0))+256*asc(b$+chr$(0));
  88. 865 geta$:printa$;:ifa$<>""then865
  89. 870 print:goto850
  90. 875 print"[194]itte [198]euer druecken":wait56320,16,16:gosub2895:di=0:return
  91. 876 print"[155][211][146]ortieren [196][146]rucken [200][146]auptmenue"
  92. 877 getjn$:ifjn$="h"then881
  93. 878 ifjn$="d"then1955
  94. 879 ifjn$="s"thenclr:hf=9:rf=9:g=2:goto2755
  95. 880 goto877
  96. 881 gosub875:gosub2935:goto20
  97. 885 gosub2895:forx=0to4:print"                                 ":nextx
  98. 890 print"":forx=0to4:print"                            ":nextx
  99. 895 print"":forx=0to4:print"                        ":nextx
  100. 900 forx=1153to1313step40:pokex,160:pokex+54272,0:nextx
  101. 905 forx=1165to1325step40:pokex,160:pokex+54272,0:nextx
  102. 910 forx=1183to1343step40:pokex,160:pokex+54272,0:nextx
  103. 915 forx=1476to1636step40:pokex,160:pokex+54272,0:nextx
  104. 920 forx=1487to1649step40:pokex,160:pokex+54272,0:nextx
  105. 925 forx=1498to1660step40:pokex,160:pokex+54272,0:nextx
  106. 930 forx=1811to1981step40:pokex,160:pokex+54272,0:nextx
  107. 935 forx=1797to1968step40:pokex,160:pokex+54272,0:nextx
  108. 940 poke214,6:print:poke211,1:print"[144]                               "
  109. 945 poke214,14:print:poke211,1:print"[144]                           "
  110. 950 poke214,22:print:poke211,1:print"[144]                      "
  111. 955 poke214,2:print:poke211,1:print"[206]ame,[201][196][198]iles[201]nitialisieren"
  112. 960 poke214,10:print:poke211,1:print"[214]alidieren[211]tatus[198]ormat"
  113. 965 poke214,18:print:poke211,1:print"[218]urueck ins[213]nscratch"
  114. 970 print"[200]auptmenue"
  115. 975 bs=6:goto20
  116. 980 ifx=>0andy>16andx<48andy<40then1555
  117. 985 ifx>96andy>16andx<144andy<40then1070
  118. 990 ifx>192andy>16andx<300andy<40then735
  119. 995 ifx=>0andy>80andx<72andy<104then1025
  120. 1000 ifx>121andy>80andx<159andy<104then780
  121. 1005 ifx>208andy>80andx<247andy<104then1200
  122. 1010 ifx=>0andy>144andx<79andy<170thengosub2895:gosub2935:goto20
  123. 1015 ifx>129andy>144andx<192andy<170then1285
  124. 1020 goto20
  125. 1025 gosub2895:poke214,8:print:poke211,0
  126. 1030 input"[198]loppy [206]r.  8[157][157][157]";fl
  127. 1035 print"[194]itte legen [211]ie die zu validierende [196]isk"
  128. 1040 print"in [198]loppy"fl"und druecken [211]ie f 3[146]!"
  129. 1045 print"f 1[146] = [200]auptmenue"
  130. 1050 geta$:ifa$=""then1050
  131. 1055 ifa$="[133]"thengosub2895:gosub2935:goto20
  132. 1060 ifa$<>"[134]"then1050
  133. 1065 open1,8,15,"v":close1:gosub2895:gosub2935:goto20
  134. 1070 open1,8,15,"m-w"+chr$(7)+chr$(1)+chr$(15):close1
  135. 1075 gosub2895:di=0:open1,8,0,"$":poke781,1:sys65478:geta$,a$
  136. 1080 di=di+1:ifdi=15thengosub1105
  137. 1085 geta$,a$:ifst=64thensys65484:close1:gosub1105:gosub2895:gosub2935:goto20
  138. 1090 geta$,b$:print"[157]"asc(a$+chr$(0))+256*asc(b$+chr$(0));
  139. 1095 geta$:printa$;:ifa$<>""then1095
  140. 1100 print:goto1080
  141. 1105 di=0:ci=0:w=1253
  142. 1110 pokew,160:pokew+54272,1:ci=ci+1:ifci=8orci=16orci=24thenw=w+32
  143. 1115 ifci=32then1125
  144. 1120 w=w+1:goto1110
  145. 1125 ci=0:w=1653
  146. 1130 pokew,160:pokew+54272,1:ci=ci+1:ifci=9orci=18orci=27thenw=w+31
  147. 1135 ifci=36then1145
  148. 1140 w=w+1:goto1130
  149. 1145 x=1294:pokex,210:pokex+1,133:pokex+2,142:pokex+3,129:pokex+4,141:pokex+5,133:x=1694
  150. 1150 pokex,211:pokex+1,131:pokex+2,146:pokex+3,129:pokex+4,148:pokex+5,131:pokex+6,136:x=1494
  151. 1155 pokex-1,87:pokex,61:pokex+1,87:pokex+2,5:pokex+3,9:pokex+4,20:pokex+5,5:pokex+6,18
  152. 1160 forx=1301to1421step40:pokex,160:pokex+54272,15:nextx
  153. 1165 forx=1414to1420:pokex,160:pokex+54272,15:nextx
  154. 1170 forx=1702to1822step40:pokex,160:pokex+54272,15:nextx
  155. 1175 forx=1814to1821:pokex,160:pokex+54272,15:nextx:bs=8:goto20
  156. 1180 ifx>230andy>38andx<273andy<59thensys65484:goto1680
  157. 1185 ifx>230andy>120andx<281andy<139thensys65484:goto1915
  158. 1190 goto20
  159. 1195 goto1195
  160. 1200 gosub2895:print"[206]ame der [196]iskette:"
  161. 1202 input"x=[200]auptmenue";na$:iflen(na$)>16then1200
  162. 1205 ifna$="x"thengosub2895:gosub2935:goto20
  163. 1210 input"[201][196] der [196]iskette:  ";id$:iflen(id$)>2thenprint"[145][145][145]":goto1210
  164. 1215 input"[196]iskette in [204]aufwerk  8[157][157][157]";fl:iffl<>8andfl<>9thenprint"[145]":goto1215
  165. 1220 poke768,61:open1,fl,15:close1:poke768,139:ifst=-128thenprint"[145]":goto1270
  166. 1225 print"[201]ch formatiere![194]itte warten..."
  167. 1230 open15,fl,15,"n0:"+na$+","+id$
  168. 1235 input#15,a,b$,c,d:ifa>19thenprint""a"[157], "b$","c"[157],"d
  169. 1240 close1
  170. 1245 print"[206]och eine [196]iskette formatieren?([202]/[206])"
  171. 1250 getfo$:iffo$=""then1250
  172. 1255 iffo$="j"thensys65511:goto1200
  173. 1260 iffo$<>"n"then1250
  174. 1265 sys65511:gosub2895:gosub2935:goto20
  175. 1270 print"[211]chalten [211]ie [198]loppy"fl"ein u. [212]aste![145][145]"
  176. 1275 geta$:ifa$=""then1275
  177. 1280 goto1220
  178. 1285 n$="":gosub2895:input"[198]loppy [206]r.  8[157][157][157]";u:ifu<>8andu<>9thenprint"[145][145]":goto1285
  179. 1290 hj=0:d=0:print "[204]egen [211]ie [196]ie [196]isk in [198]loppy";u
  180. 1295 v=16: q=32: f=256: t=18: s=1: w=0
  181. 1300 z$=chr$(0): d$=right$(str$(d),1)
  182. 1305 n$=left$(n$,v): l=len(n$)
  183. 1310 get x$: if x$=""then 1310
  184. 1315 print "[206]ame des [198]iles (x=[200]auptmenue)"
  185. 1320 if l=v then 1330
  186. 1325 inputn$: if n$="x" then 1540
  187. 1330 v=16: q=32: f=256: t=18: s=1: w=0
  188. 1335 z$=chr$(0): d$=right$(str$(d),1)
  189. 1340 n$=left$(n$,v): l=len(n$)
  190. 1345 if right$(n$,1)<>"*" then 1355
  191. 1350 l=l-1: n$=left$(n$,l): w=1:goto 1365
  192. 1355 if l=v then 1365
  193. 1360 for x=l+1 to v: n$=n$+chr$(160): next: l=v
  194. 1365 sys65511:open 1,u,15,"i"+d$:gosub 1530
  195. 1370 open 2,u,2,"#": gosub 1530
  196. 1375 print#1,"u1:";2;d;t;s: gosub 1530
  197. 1380 print#1,"b-p:";2;0: get#2,a$,b$
  198. 1385 tr=asc(a$+z$): sc=asc(b$+z$): h=2
  199. 1390 print#1,"b-p:";2;h: get#2,t$
  200. 1395 c=asc(t$+z$): if c>0 then 1415
  201. 1400 get#2,a$,b$: f$="": for x=1 to v
  202. 1405 get#2,t$: f$=f$+t$: next: if f$="" then 1425
  203. 1410 if l=0 or n$=left$(f$,l) then 1445
  204. 1415 h=h+q: if h<f then 1390
  205. 1420 if tr>0 then t=tr: s=sc: goto 1375
  206. 1425 if w then print "[197]nde der [196]irectory": goto 1505
  207. 1430 print "[198]ile-name:  ";n$
  208. 1435 print "[206]icht gefunden"
  209. 1440 for x=1 to 2000: next: goto 1505
  210. 1445 a=asc(a$+z$): b=asc(b$+z$)
  211. 1450 print "[199]efunden:"f$
  212. 1455 print "auf [211]pur";a;"[211]ektor";b
  213. 1460 print "[196]ieses [198]ile regenerieren ([202]/[206]) ? [202][157][157][157]";
  214. 1465 input x$: if x$="[202]" then 1475
  215. 1470 if w then 1415
  216. 1475 print "1=seq  2=prg  3=usr  4=rel"
  217. 1480 print "[215]elcher [198]ile-[212]yp (1-4) ? 1[157][157][157]";
  218. 1485 input p: if p<1 or p>4 then print "[145][145]": goto 1470
  219. 1490 print#1,"b-p:";2;h: print#2,chr$(p+128);
  220. 1495 print#1,"u2:";2;d;t;s:gosub 1530:hj=1
  221. 1500 print "regeneriertes [198]ile:  ";f$: if w then 1415
  222. 1505 print "[206]ocheinmal ([202]/[206]) ? "
  223. 1510 getx$:ifx$=""then1510
  224. 1515 if x$="n" then 1545
  225. 1520 ifx$="j"thenclose 2: close 1:goto 1285
  226. 1525 print"[145][145][145]":goto1505
  227. 1530 input#1,e,m$,j,k: if e=0 then return
  228. 1535 print "[198]ehler: ";e;m$;j;k
  229. 1540 close 2: close 1: if g=0 then sys65511:gosub2895:gosub2935:goto20
  230. 1545 print "[205]oment bitte..."
  231. 1550 sys65511:open 1,u,15,"v"+d$: close 1:gosub2895:gosub2935:goto20
  232. 1555 gosub2895:print"[193]enderung von:"
  233. 1560 print"[196][201][211][203]-[206][146][193][205][197]":print"[196][201][211][203]-[201][146][196]":print"[216]=[200]auptmenue"
  234. 1565 gosub1650:ifx$<>"n"andx$<>"i"andx$<>"x"thenprint"[145][145][145]":goto1565
  235. 1570 ifx$="x"thengosub2895:gosub2935:goto20
  236. 1575 open15,8,15:print#15,"i"+dv$:open1,8,3,"#":print#15,"u1:3"dv",18,0"
  237. 1580 ifx$="n"then1625
  238. 1585 ifx$<>"i"thenprint"[145][145][145]":goto1565
  239. 1590 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$:print"[196][201][211][203]-[201][196] :"
  240. 1595 printa$;b$;c$;d$;e$:input"[206]eue [196][201][211][203]-[201][196]";ni$
  241. 1600 iflen(ni$)<5thenni$=ni$+chr$(160):goto1600
  242. 1605 iflen(ni$)>5thenni$=left$(ni$,5)
  243. 1610 print#15,"b-p:3,162":print#1,ni$;:print#15,"u2:3"dv",18,0
  244. 1615 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
  245. 1620 [137]1655
  246. 1625 [152]15,"b-p:3,144":dn$[178]"":[129]l[178]1[164]16:[161]#1,a$:dn$[178]dn$[170]a$:[130]
  247. 1630 [153]"str$right$(NULL)(NULL)-(NULL)atn(NULL)val:":[153]:[153]" "[170]dn$[170]" "
  248. 1635 [153]"(NULL)euer str$right$(NULL)(NULL)-(NULL)atn(NULL)val":[133]nd$:[153]
  249. 1640 nd$[178][200](nd$[170]"              ",16)
  250. 1645 [152]15,"b-p:3,144":[152]1,nd$;:[152]15,"u2:3"dv",18,0":[137]1615
  251. 1650 [161]x$:[142]
  252. 1655 [153]"(NULL)ocheinmal(mid$/(NULL))"
  253. 1660 [161]jn$:[139]jn$[178]""[167]1660
  254. 1665 [139]jn$[178]"n"[167][158]65511:[141]2895:[141]2935:[137]20
  255. 1670 [139]jn$[178]"j"[167][158]65511:[137]1555
  256. 1675 [137]1660
  257. 1680 [153]""
  258. 1685 [133]"atnlter ascile (NULL)ame:";af$
  259. 1690 [133]"(NULL)euer ascile (NULL)ame:";nf$
  260. 1695 [159]5,8,15,"r:"[170]nf$[170]"="[170]af$
  261. 1700 [158]65511:[137]1930
  262. 1795 v[178][194](53272):b[178]1144:m$[178]"c":[139]v[178]21[167][159]1,4,0
  263. 1800 [139]v[178]23[167][159]1,4,7
  264. 1805 [151]768,61:[159]1,4:[152]1:[160]1:[151]768,139:[139]st[179][177][171]128[167]1830
  265. 1810 [153]"loadstr$rucker ausser peeketrieb.":[153]"(NULL)ocheinmal ?(mid$/(NULL))"
  266. 1815 [161]jn$:[139]jn$[178]"j"[167][156]:g[178]2:rf[178]9:hf[178]9:[137]1780
  267. 1820 [139]jn$[178]"n"[167][141]2895:[141]2935:[137]20
  268. 1825 [137]1815
  269. 1830 [159]1,4
  270. 1832 [152]1,[199](27);"@":[152]1,[199](27);[199](108);[199](10);:[129]z[178]0[164]21:[129]s[178]0[164]39
  271. 1835 m[178]b[170]z[172]40[170]s:x[178][194](m):[139]x[177]127[167]x[178]x[171]128
  272. 1840 [139]x[177][178]32[175]x[179][178]63[167]1890
  273. 1845 [139]m$[178]"a"[167]1860
  274. 1850 [139]x[177][178]64[175]x[179][178]95[167]x[178]x[170]32:[137]1890
  275. 1855 x[178]x[170]64:[137]1890
  276. 1860 [139]v[178]21[167]1880
  277. 1865 [139]x[179][178]31[167]x[178]x[170]96:[137]1890
  278. 1870 [139]x[177][178]96[167]x[178]32:[137]1890
  279. 1875 [137]1890
  280. 1880 [139]x[179]31[167]x[178]x[170]64:[137]1890
  281. 1885 x[178]32
  282. 1890 [152]1,[199](x);:[130]s
  283. 1895 [152]1,[199](13);
  284. 1900 [130]z
  285. 1905 [160]1
  286. 1910 [141]2895:[141]2935:[137]20
  287. 1915 [151]214,19:[153]:[151]211,0:[153]"(NULL)elches ascile wollen (NULL)ie scratchen ?":[133]sf$
  288. 1920 [139][195](sf$)[177]15[167]sf$[178][200](sf$,16)
  289. 1925 [159]8,8,15:[152]8,"s:"[170]sf$:[158]65511
  290. 1930 [153]"(NULL)ocheinmal (mid$/(NULL))?"
  291. 1935 [161]jn$:[139]jn$[178]""[167]1935
  292. 1940 [139]jn$[178]"j"[167][158]65511:[137]1075
  293. 1945 [139]jn$[178]"n"[167][158]65511:[141]2895:[141]2935:[137]20
  294. 1950 [137]1935
  295. 1955 [141]2895:[151]214,10:[153]:[151]211,0:[153]"(NULL)egen (NULL)ie bitte die str$iskette ein!"
  296. 1960 [161]x$:[139]x$[178]""[167]1960
  297. 1965 [137]1985
  298. 1970 [132]1,e,e$,b,i:[139] e[178]0 [167] [142]
  299. 1975 [153]"ascehler:";e;e$;b;i"
  300. 1980 close 2: close 1:goto2195
  301. 1985 z$=chr$(z): a=1: dim l$(232),r$(232)
  302. 1990 w=-a: l=z: r=z: j=z: k=z:v$="      "
  303. 1995 v=16: q=32: p=128: f=256: m=z: y=z
  304. 2000 t$(1)="   seq ": t$(2)="   prg ":g=z
  305. 2005 t$(3)="   usr ": t$(4)="   rel ":n=z
  306. 2010 u=8:d=0:d=val(d$)
  307. 2015 t=18: s=1: w=not w
  308. 2020 open 1,u,15,"i"+d$: gosub 1970
  309. 2025 open 2,u,0,"$"+d$+":": gosub 1970
  310. 2030 for x=a to 7: get#2,x$: next: f$=""
  311. 2035 for x=a to 21: get#2,x$: f$=f$+x$: next
  312. 2040 get#2,x$,x$,x$,x$,x$,x$,a$,b$
  313. 2045 x=asc(a$+z$)+asc(b$+z$)*f: x$=str$(x): c=len(x$)
  314. 2050 f$=chr$(18)+f$+chr$(146)+left$(v$,5-c)+x$+" free"
  315. 2055 if w then r=z: r$(r)=f$: n=a: goto 2065
  316. 2060 l=z: l$(l)=f$: g=a
  317. 2065 close 2: open 2,u,2,"#": gosub 1970
  318. 2070 print#1,"u1:";2;d;t;s: gosub 1970
  319. 2075 print#1,"b-p:";2;0: get#2,a$,b$
  320. 2080 t=asc(a$+z$): s=asc(b$+z$): h=2
  321. 2085 print#1,"b-p:";2;h: get#2,a$,x$,x$
  322. 2090 c=asc(a$+z$): if c<p then 2125
  323. 2095 f$="": for x=a to v: get#2,x$: f$=f$+x$: next
  324. 2100 print#1,"b-p:";2;h+28: get#2,a$,b$
  325. 2105 x=asc(a$+z$)+asc(b$+z$)*f
  326. 2110 f$=left$(str$(x)+v$,8)+f$+t$(c-p)
  327. 2115 if w then r=r+a: r$(r)=f$: goto 2125
  328. 2120 l=l+a: l$(l)=f$
  329. 2125 h=h+q: if h<f then 2085
  330. 2130 if t then 2070
  331. 2135 close 2: close 1: print "[147]"
  332. 2140 if y=z then open 4,4: print#4,"[147]"
  333. 2145 y=a: if st=z then 2160
  334. 2150 print"[196]rucker ist ausser [194]etrieb!":goto2195
  335. 2155 close 4: y=z: goto 2140
  336. 2160 if g=z then print#4,"";spc(47);r$(k): goto 2175
  337. 2165 print#4,"";spc(6);l$(j);spc(10);r$(k)
  338. 2170 if g then l$(j)="": j=j+a
  339. 2175 if n then r$(k)="": k=k+a
  340. 2180 if j>l then w=-a: j=z: g=z:goto2195
  341. 2185 if k>r then w=z: k=z: n=z:goto2195
  342. 2190 if j or k then 2160
  343. 2195 sys65511:print"[206]ocheinmal([202]/[206]) ?"
  344. 2200 getjn$:ifjn$="j"thenclr:g=2:hf=9:rf=9:goto1955
  345. 2205 ifjn$="n"thenclr:g=2:hf=9:rf=9:gosub2895:gosub2935:goto20
  346. 2210 goto2200
  347. 2215 gosub2895:forx=0to4:print"           ":nextx
  348. 2220 print"[145][145][145][145][204]adehilfe"
  349. 2230 print"[144]           "
  350. 2235 forx=1155to1280step40:pokex,160:pokex+54272,0:nextx
  351. 2250 print"":forx=0to4:print"                        ":nextx
  352. 2255 print"[145][145][145][145][218]urueck ins[213]mrechnen"
  353. 2260 print"[200]auptmenue"
  354. 2265 print"[144]                        "
  355. 2270 forx=1517to1637step40:pokex,160:pokex+54272,0:nextx
  356. 2275 forx=1531to1651step40:pokex,160:pokex+54272,0:nextx
  357. 2280 bs=11:goto20
  358. 2285 ifx>0andy>15andx<64andy<42then2615
  359. 2295 ifx>0andy>42andx<80andy<106thengosub2895:gosub2935:goto20
  360. 2300 ifx>126andy>81andx<192andy<106then2340
  361. 2310 goto20
  362. 2315 poke19,64:input"[200]exadezimalzahl(4-stellig):";h$:iflen(h$)<4then2315
  363. 2316 i=0:fors=1to4:a=asc(mid$(h$,s,1)):a=a-48+(a>64)*7:i=i+a*16^(4-s):next
  364. 2317 gosub2319
  365. 2318 d$="":forn=1to16:b=int(i/2):d$=chr$(i-2*b+48)+d$:i=b:nextn:goto2320
  366. 2319 printtab(85)"[196]ezimal:";i:return
  367. 2320 printtab(85)"[194]inaer:"d$:goto2370
  368. 2321 poke19,64:input"[194]inaerzahl(8-stellig):";d$
  369. 2322 i=0:c=0:forx=8to1step-1:c=c+1:i=i+val(mid$(d$,c,1))*2^(x-1):nextx:gosub2325
  370. 2323 h$="":fors=1to4:m=16^(4-s):a=int(i/m):i=i-m*a:h$=h$+chr$(a+48-(a>9)*7):next
  371. 2324 goto2326
  372. 2325 printtab(80)"[196]ezimal:";i:return
  373. 2326 print:print"[200]exadezimal:";h$:goto2370
  374. 2327 poke19,64:input"[196]ezimalzahl:";i
  375. 2328 d$="":forn=1to16:b=int(i/2):d$=chr$(i-2*b+48)+d$:i=b:nextn:gosub2332
  376. 2329 i=0:c=0:forx=16to1step-1:c=c+1:i=i+val(mid$(d$,c,1))*2^(x-1):nextx
  377. 2330 h$="":fors=1to4:m=16^(4-s):a=int(i/m):i=i-m*a:h$=h$+chr$(a+48-(a>9)*7):next
  378. 2331 goto2333
  379. 2332 printtab(80)"[194]inaer:";d$:return
  380. 2333 print:print"[200]exadezimal:";h$:goto2370
  381. 2340 gosub2895:print"[197]ingabe in :"
  382. 2345 print"[200][146]exadezimal":print"[196][146]ezimal":print"[194][146]inaer"
  383. 2350 getaw$:ifaw$="h"thengosub2895:goto2315
  384. 2355 ifaw$="d"thengosub2895:goto2327
  385. 2360 ifaw$="b"thengosub2895:goto2321
  386. 2365 goto2350
  387. 2370 print"[206]ocheinmal ?([202]/[206])"
  388. 2375 getjn$:ifjn$="j"then2340
  389. 2380 ifjn$="n"thenpoke19,0:gosub2895:gosub2935:goto20
  390. 2385 goto2375
  391. 2440 sys65511:input"[145][199]eben [211]ie [211]pur und [211]ektor ein";t,s
  392. 2445 open1,8,15:open2,8,2,"#"
  393. 2450 print#1,"u1 2 0 ";t;s
  394. 2455 input"[215]elche [206]ummer veraendern";b
  395. 2460 print#1,"b-p 2 ";b
  396. 2465 input"[206]euer [215]ert dieses [194]ytes ";n$
  397. 2470 n$=left$(n$,1)
  398. 2475 print#2,n$;
  399. 2480 print#1,"u2 2 0 ";t;s
  400. 2485 close2
  401. 2490 print#1,"i"
  402. 2495 close1:goto2555
  403. 2500 gosub2895:deffn hn(x)=int(x/16):deffn ln(x)=xand15:deffn c(x)=x+48-(x>9)*7
  404. 2505 deffn h(x)=fn c(fn hn(x)):deffn l(x)=fn c(fn ln(x)):open1,8,15:open2,8,2
  405. 2510 open8,8,8,"#":input"[199]eben [211]ie [211]pur und [211]ektor ein";t,s:if((t*s)<0)then2580
  406. 2515 print#1,"u1 ";8;0;t;s:print#1,"b-p";8;0:za=0:fori=0to31:ifi=16thengosub2585
  407. 2520 hx$="":hc$="":forj=0to7:get#8,x$
  408. 2525 x=asc(x$+chr$(0)):x$=chr$(x)
  409. 2530 hx$=hx$+" "+chr$(fn h(x))+chr$(fn l(x)):c$="."
  410. 2535 if(x>31)and(x<96)thenc$=x$:goto2545
  411. 2540 if(x>128+63)thenc$=x$
  412. 2545 hc$=hc$+c$:nextj:printhx$;" ";hc$:print"[157][157][157][157][157][157]";za:za=za+8:nexti
  413. 2550 gosub2585
  414. 2555 print"[206]ocheinmal ?([202]/[206])"
  415. 2560 getjn$:ifjn$=""then2560
  416. 2565 ifjn$="j"thensys65511:goto2500
  417. 2570 ifjn$="n"thensys65511:gosub2895:gosub2935:goto20
  418. 2575 goto2560
  419. 2580 close8:close1:print"[198]ehler!!":gosub2895:gosub2935:goto20
  420. 2585 print"[215][146]eiter oder [214][146]eraendern ?"
  421. 2590 getjn$:ifjn$=""then2590
  422. 2595 ifjn$<>"v"thengoto2605
  423. 2600 goto2440
  424. 2605 ifi>18thenreturn
  425. 2610 gosub2895:return
  426. 2615 gosub2895:a=18:b=1
  427. 2620 open15,8,15:open2,8,2,"#":fori=1to8:t$(i)="":nexti:ifa=0orb=0thenclose2:close15:goto2720
  428. 2625 gosub2705:k=4:fori=1to8:print#15,"b-p 2";k-2:get#2,p$:p=asc(p$+chr$(0))
  429. 2630 ifp<>130andp<>194then2640
  430. 2635 forj=1to16:print#15,"b-p 2";j+k:get#2,c$:t$(i)=t$(i)+c$:nextj:k=k+32
  431. 2640 nexti:k=17:fori=1to8:ift$(i)=""then2675
  432. 2645 print"[198]ile:"t$(i):print"1 = ,8:":print"2 = ,8,1":print"3 = [215]eiter"
  433. 2650 gete$:ife$=""then2650
  434. 2655 ife$="1"thenaf$=",8:":af=8:print"[145][145][145][145][145][145][145][145][145]":goto2685
  435. 2660 ife$="2"thenaf$=",8,1":af=1:print"[145][145][145][145][145][145][145][145][145]":goto2685
  436. 2665 ife$="3"thenprint"[145][145][145][145][145][145][145][145][145]":goto2675
  437. 2670 goto2650
  438. 2675 k=k+32:nexti:ifw=1thengosub2715
  439. 2680 a=a1:b=b1:close2:close15:goto2620
  440. 2685 w=1
  441. 2690 ifaf=8thenprint#15,"b-p 2";k
  442. 2695 ifaf=1thenprint#15,"b-p 2"k-1
  443. 2700 print#2,chr$(160);af$;:goto2675
  444. 2705 print#15,"u1 2 0";a;b:print#15,"b-p 2 0":get#2,a$,b$
  445. 2710 a1=asc(a$+chr$(0)):b1=asc(b$+chr$(0)):return
  446. 2715 print#15,"u2 2 0";a;b:return
  447. 2720 poke214,12:print:poke211,0:print"[206]ocheinmal ?([202]/[206])"
  448. 2725 getjn$:ifjn$=""then2725
  449. 2730 ifjn$="j"then2615
  450. 2735 ifjn$="n"thengosub2895:gosub2935:goto20
  451. 2740 goto2725
  452. 2755 a=1:l=4:n=8:v=16:q=32:f=128:t=18:s=a:z=0:m=144:z$=chr$(0):d$=right$(str$(0),1)
  453. 2760 open1,8,15:open 2,8,2,"#":print#1,"u1:";2;0;t;z
  454. 2765 print#1,"b-p:";2;m:forx=ato20:get#2,t$:next:dime$(m),t(20),s(20):b=z:j=z
  455. 2770 print#1,"u1:";2;0;t;s:print#1,"b-p:";2;z: get#2,a$,b$
  456. 2775 t(b)=t:s(b)=s:t=asc(a$+z$):s=asc(b$+z$):h=2:fory=aton:print#1,"b-p:";2;h
  457. 2780 get#2,t$:c=asc(t$+z$):f$=chr$(c):ifc<fthen2790
  458. 2785 forx=2to30:get#2,t$:c=asc(t$+z$):f$=f$+chr$(c):next:j=j+a:e$(j)=f$
  459. 2790 h=h+q:next:b=b+a:ift>zthen2770
  460. 2795 x=j:ifr$="n"then2830
  461. 2800 x=int(x/2):y=a:h=j-x:ifx=0then2830
  462. 2805 k=y
  463. 2810 c=k+x:ifmid$(e$(k),l,v)<=mid$(e$(c),l,v)then2820
  464. 2815 t$=e$(k):e$(k)=e$(c):e$(c)=t$:k=k-x:ifk=>athen2810
  465. 2820 y=y+a:ify>hthen2800
  466. 2825 goto2805
  467. 2830 b=z:k=a:c=int(j/n+.9):x$="":forx=ato30:x$=x$+z$:next:fory=atoc:print#1,"b-p:";2;2
  468. 2835 forx=aton:a$=x$:ifk<=jthena$=e$(k)
  469. 2840 print#2,a$;:ifx<nthenprint#2,z$;z$;
  470. 2845 k=k+a:next:t=t(b):s=s(b):b=b+a:a$=chr$(t(b)):b$=chr$(s(b))
  471. 2850 ify=cthena$=z$:b$="[255]"
  472. 2855 print#1,"b-p:";2;z:print#2,a$;b$;:print#1,"u2:";2;d;t;s:next
  473. 2860 ifb=20ort(b)=zthen2885
  474. 2865 print#1,"b-p:";2;z:forx=aton:print#2,x$;z$;z$;:next
  475. 2870 t=t(b):s=s(b):print#1,"u2:";2;d;t;s:print#1,"b-p:";d;t;s:b=b+a:ift(b)>zthen2870
  476. 2885 sys65511:clr:rf=9:hf=9:g=2:goto840
  477. 2895 poke53281,hf:poke53280,rf:poke657,128:printchr$(14)
  478. 2900 print"[155][147]          [215]orkbase 64  [214] 2.0"
  479. 2905 print"by                     and           "
  480. 2910 poke1067,205:poke1068,129:poke1069,146:poke1070,131:poke1071,173:poke1072,207
  481. 2915 poke1073,140:poke1074,137:poke1075,150:poke1076,133:poke1077,146:poke1079,203
  482. 2920 poke1080,133:poke1081,147:poke1082,147:poke1083,140:poke1084,129:poke1085,149
  483. 2925 poke1091,203:poke1092,129:poke1093,137:poke1095,194:poke1096,143:poke1097,153
  484. 2930 poke1098,147:poke1099,133:poke1100,142:return
  485. 2935 fors=0to6:print"                                 ":nexts
  486. 2940 poke214,3:print:poke211,0:print" [196]irectory  [196]isc  [212]ools  [205]onitor "
  487. 2945 print"":fors=0to6:print"                 ":nexts
  488. 2950 poke214,13:print:poke211,0:print" [208]arameter  [197]xit "
  489. 2955 forx=1155to1395step40:pokex,160:pokex+54272,0:pokex+8,160:pokex+54280,0
  490. 2960 forx=1195to1395step40:pokex,160:pokex+54272,0:pokex+8,160:pokex+54280,0:nextx
  491. 2965 forx=1172to1412step40:pokex,160:pokex+54272,0:nextx
  492. 2970 forx=1183to1413step40:pokex,160:pokex+54272,0:nextx
  493. 2975 forx=1555to1834step40:pokex,160:pokex+8,160:pokex+54272,0:pokex+54280,0
  494. 2980 nextx
  495. 2985 poke214,8:print:poke211,0:print"[144]                               "
  496. 2990 poke214,18:print:poke211,0:print"[144]                 ":bs=1:return
  497. 3025 gosub2895:poke214,10:print:poke211,0:print"[213][146]hrzeit neu einstellen"
  498. 3030 print"[193][146]larmzeit neu einstellen":print"[218][146]urueck ins [200]auptmenue"
  499. 3035 gets$:ifs$="a"thengosub3055:gosub2895:gosub2935:goto20
  500. 3040 ifs$="u"thengosub3105:gosub2895:gosub2935:goto20
  501. 3045 ifs$="z"thengosub2895:gosub2935:goto20
  502. 3050 goto3035
  503. 3055 gosub3060:gosub2895:gosub2935:goto20
  504. 3060 rf=9:gosub2895:poke214,10:print:poke211,0:print"[199]eben [211]ie die [193]larmzeit ein"
  505. 3065 input"(4-stellig):";al$:iflen(al$)<4then3060
  506. 3070 iflen(al$)>4thenal$=left$(al$,4)
  507. 3075 v=0:return
  508. 3080 fory=54272to54296:pokey,0:next:s=54272:pokes+24,15:pokes+6,240
  509. 3085 pokes+13,240:pokes+4,65:pokes+11,33
  510. 3090 forx=0to50:fory=25to30:pokes+1,y:pokes+8,y+(t/10):nexty:nextx
  511. 3095 pokes+24,0:pokes+6,0:pokes+13,0:pokes+4,0:pokes+11,0:v=1:return
  512. 3100 gosub3105:poke19,0:run10
  513. 3105 poke19,64:rf=9:hf=9:gosub2895:poke214,10:print:poke211,0:print"[199]eben [211]ie die [213]hrzeit ein"
  514. 3110 print"[200][200][205][205][211][211]":print"[145][145]"
  515. 3115 poke786,185:inputti$:poke786,139:return
  516.